home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / general / False.st < prev    next >
Text File  |  2002-10-27  |  370b  |  18 lines
  1. Class False :Boolean
  2. [
  3.    ifTrue: trueAlternativeBlock ifFalse: falseAlternativeBlock
  4.        ^ falseAlternativeBlock value
  5. |
  6.    ifFalse: falseAlternativeBlock ifTrue: trueAlternativeBlock
  7.        ^ falseAlternativeBlock value
  8. |
  9.    ifTrue: trueAlternativeBlock
  10.        ^ nil
  11. |
  12.    ifFalse: falseAlternativeBlock
  13.        ^ falseAlternativeBlock value
  14. |
  15.    not
  16.        ^ true
  17. ]
  18.